From: Kenichi Handa <handa@m17n.org>
Date: Tue, 7 Oct 2003 07:33:22 +0000 (+0000)
Subject: (autoload-coding-system): Add SYMBOL to coding-system-alist.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~25255
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=5c35c47156ca2273467c98d017a048f467058d94;p=emacs.git

(autoload-coding-system): Add SYMBOL to coding-system-alist.
---

diff --git a/lisp/international/mule.el b/lisp/international/mule.el
index 1ccd26db6c1..b86b3bac1fb 100644
--- a/lisp/international/mule.el
+++ b/lisp/international/mule.el
@@ -1123,7 +1123,9 @@ Return the resulting coding system."
   "Define SYMBOL as a coding-system that is defined on demand.
 
 FROM is a form to evaluate to define the coding-system."
-  (put symbol 'coding-system-define-form form))
+  (put symbol 'coding-system-define-form form)
+  (setq coding-system-alist (cons (list (symbol-name symbol))
+				  coding-system-alist)))
 
 (defun set-buffer-file-coding-system (coding-system &optional force)
   "Set the file coding-system of the current buffer to CODING-SYSTEM.